home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 31
/
Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso
/
Aminet
/
util
/
rexx
/
WW-Rech_kor.lha
/
Kunde_weg_WW.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-02-22
|
1KB
|
45 lines
/* Kundendaten entfernen
*/
/*
** Copyright © by Friedrich Siekmeier
** Version 1.01 vom 22.02.1999
** Erweiterung zum WordWorth-Assistenten
** WW-Rechnung und ...-PS
*/
OPTIONS RESULTS
ADDRESS AREXX
IF ~SHOW(L,'rexxreqtools.library') THEN DO
ADDLIB('rexxreqtools.library',0,-30,0)
END
NKD=rtgetstring(,'Bitte Datei-(Kunden-)namen eingeben...ohne Umlaute äöü')
IF NKD < 1 THEN EXIT
OPEN(Auswahl,'Kunden:Auswahl',R)
OPEN(KDAuswahl,'RAM:KDAuswahl',W)
DO UNTIL EOF(Auswahl)
Lesen=READLN(Auswahl)
IF INDEX(Lesen,NKD) ~= 0 THEN ITERATE
WRITELN(KDAuswahl,Lesen)
END
CLOSE(Auswahl)
CLOSE(KDAuswahl)
THEN ADDRESS COMMAND 'C:Delete >NIL: Kunden:Auswahl.bak'
ADDRESS COMMAND 'C:Wait 3 secs'
ADDRESS COMMAND 'C:Rename Kunden:Auswahl Kunden:Auswahl.bak'
ADDRESS COMMAND 'C:Copy RAM:KDAuswahl Kunden:Auswahl CLONE'
ADDRESS COMMAND 'C:Delete >NIL: Kunden:'NKD
ADDRESS COMMAND 'C:Wait 3 secs'
ADDRESS COMMAND 'C:Delete >NIL: RAM:KDAuswahl'
rtezrequest('Sie haben nun die Kundendaten entfernt!')
EXIT